{ Invokable implementation File for Tselfservice which implements Iselfservice }

unit selfserviceImpl;

interface

uses Soap.InvokeRegistry, System.Types, Soap.XSBuiltIns, selfserviceIntf;

type

  { Tselfservice }
  Tselfservice = class(TInvokableClass, Iselfservice)
  public
    function GetPatChargeType(request:string) : string;stdcall;
    function GdaGetOutPay(request:string) : string;stdcall;
    function GdaInsertOutPay(request : string) : string;stdcall;
    function GetPatSIState(request : string) : string;stdcall;
  end;

implementation


{ Tselfservice }

uses mz_function_dtm;

var
  dtm_mz : Tmz_function;

function Tselfservice.GdaGetOutPay(request: string): string;
begin
  dtm_mz := Tmz_function.Create(nil);
  Result := dtm_mz.MzsfGdaGetOutPay(request);
end;

function Tselfservice.GdaInsertOutPay(request: string): string;
begin
  dtm_mz := Tmz_function.Create(nil);
  Result := dtm_mz.MzsfGdaInsertOutPay(request);
end;

function Tselfservice.GetPatChargeType(request: string): string;
begin
  dtm_mz := Tmz_function.Create(nil);
  Result := dtm_mz.MzsfGetPatChargeType(request);
end;

function Tselfservice.GetPatSIState(request: string): string;
begin
  dtm_mz := Tmz_function.Create(nil);
  Result := dtm_mz.MzsfGetPatSIState(request);
end;

initialization
{ Invokable classes must be registered }
   InvRegistry.RegisterInvokableClass(Tselfservice);
end.

